(LAP SUBFUN1EDITC SUBR) 
       (HLRZ@ 3 (SPECIAL X) S) 
       (HRRZ@ 2 (SPECIAL X) S) 
       (MOVE 1 (SPECIAL L) S) 
       (JCALL 3 (E EDITE) S) 
       NIL 

(LAP EDITC FSUBR) 
       (JSP 6 SPECBIND) 
       (0 1 (SPECIAL X) S) 
       (0 0 (SPECIAL L) S) 
       (JUMPN 1 TAG5) 
       (MOVE 1 (SPECIAL LASTWORD) S) 
       (CALL 1 (E NCONS) S) 
       (MOVEM 1 (SPECIAL X) S) 
 TAG5  (MOVEI 2 (QUOTE CEXPR) S) 
       (HLRZ@ 1 (SPECIAL X) S) 
       (CALL 2 (E GET) S) 
       (MOVEM 1 (SPECIAL L) S) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG10) 
       (TDZA 1 1) 
 TAG10 (MOVEI 1 (QUOTE T) S) 
       (JUMPN 1 TAG7) 
       (JRST 0 TAG2) 
 TAG7  (MOVEI 1 (QUOTE ((SUBFUN1EDITC))) S) 
       (CALL 17 (E ERRSET) S) 
       (JUMPE 1 TAG2) 
       (HLRZ@ 1 (SPECIAL X) S) 
       (MOVEM 1 (SPECIAL LASTWORD) S) 
       (JUMPE 1 TAG13) 
       (HLRZ@ 1 (SPECIAL X) S) 
       (JRST 0 TAG1) 
 TAG13 
 TAG2  (MOVEI 1 (QUOTE NIL)) 
 TAG1  (JRST 0 SPECSTR) 
       NIL 

(LAP SUBFUN1EDITD SUBR) 
       (HLRZ@ 3 (SPECIAL X) S) 
       (HRRZ@ 2 (SPECIAL X) S) 
       (MOVE 1 (SPECIAL L) S) 
       (JCALL 3 (E EDITE) S) 
       NIL 

(LAP EDITD FSUBR) 
       (JSP 6 SPECBIND) 
       (0 1 (SPECIAL X) S) 
       (0 0 (SPECIAL L) S) 
       (JUMPN 1 TAG5) 
       (MOVE 1 (SPECIAL LASTWORD) S) 
       (CALL 1 (E NCONS) S) 
       (MOVEM 1 (SPECIAL X) S) 
 TAG5  (MOVEI 2 (QUOTE DATUM) S) 
       (HLRZ@ 1 (SPECIAL X) S) 
       (CALL 2 (E GET) S) 
       (MOVEM 1 (SPECIAL L) S) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG10) 
       (TDZA 1 1) 
 TAG10 (MOVEI 1 (QUOTE T) S) 
       (JUMPN 1 TAG7) 
       (JRST 0 TAG2) 
 TAG7  (MOVEI 1 (QUOTE ((SUBFUN1EDITD))) S) 
       (CALL 17 (E ERRSET) S) 
       (JUMPE 1 TAG2) 
       (HLRZ@ 1 (SPECIAL X) S) 
       (MOVEM 1 (SPECIAL LASTWORD) S) 
       (JUMPE 1 TAG13) 
       (HLRZ@ 1 (SPECIAL X) S) 
       (JRST 0 TAG1) 
 TAG13 
 TAG2  (MOVEI 1 (QUOTE NIL)) 
 TAG1  (JRST 0 SPECSTR) 
       NIL 

(LAP DATA FSUBR) 
       (PUSH P (C 0 0 (QUOTE NIL) 0)) 
 TAG1  (CALL 0 (E READ) S) 
       (MOVEM 1 0 P) 
       (JUMPE 1 TAG3) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG7) 
       (PUSH P (C 0 0 TAG10 0)) 
       (PUSH P -1 P) 
       (MOVNI 6 1) 
       (JCALL 16 (E CREMOVE) S) 
 TAG10 (PUSH P (C 0 0 TAG11 0)) 
       (PUSH P -1 P) 
       (MOVNI 6 1) 
       (JCALL 16 (E ADD) S) 
 TAG11 (JRST 0 TAG5) 
 TAG7  (HLRZ@ 1 0 P) 
       (CALL 1 (E ATOM) S) 
       (JUMPE 1 TAG12) 
       (PUSH P (C 0 0 TAG13 0)) 
       (MOVE 1 -1 P) 
       (CALL 1 (E *EVAL) S) 
       (PUSH P 1) 
       (MOVNI 6 1) 
       (JCALL 16 (E ADD) S) 
 TAG13 (JRST 0 TAG5) 
 TAG12 (PUSH P (C 0 0 TAG14 0)) 
       (HLRZ@ 1 -1 P) 
       (PUSH P 1) 
       (MOVNI 6 1) 
       (JCALL 16 (E ADD) S) 
 TAG14 
 TAG5  (JRST 0 TAG1) 
 TAG3  (MOVEI 1 (QUOTE NIL)) 
       (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL